home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 2-2.iso / drivers / videodrv / cyrrus / CL5446 / UTILITY / INSTALL.DAT < prev    next >
Text File  |  1996-12-20  |  49KB  |  1,553 lines

  1. // Standard header here...
  2. @DefineProject
  3.         @Name           = "GD5436/46 Display Drivers"
  4.     @Version        = "Version 1.14 RC"
  5.         @Subdir         = "\\"
  6.         @Immediate      = 1
  7.         @OutDrive       = C
  8.         @Requires   @HardDisk
  9. @EndProject
  10.  
  11. // Define all the vars you need here
  12. // Init all strings with "" or a hard coded string
  13. // Init all Integers with 0 or 1
  14.  
  15. // If OEM release, set @IsOem = 1 else 0
  16.  
  17. @DefineVars
  18.         @Integer @DDrive = 99
  19.         @Integer @StrLens = 0
  20.         @Integer @bannercol = 0
  21.         @Integer @OurCol = 0
  22.         @Integer @XX = 0
  23.         @Integer @IsOem = 1
  24.         @Dir @AcadDir  = "\\ACAD\\DRV"
  25.         @Drive @AcadDrive  = C
  26.     @Qstring @Product       = "GD5436/46" 
  27.     @Qstring @NameLower     = "GD5436/46 display drivers"
  28.     @Qstring @Opt1020       = "AutoCAD Release 12, 13"
  29.     @Qstring @Opt1040       = "AutoDesk 3D Studio Ver 1.0 - 3.0"
  30.     @Qstring @Opt1060       = "AutoShade with RenderMan Ver 2.0"
  31.  
  32.  
  33. /*  @Qstring @Opt1100       = "Lotus 1-2-3 Ver 2.xx"              */
  34. /*  @Qstring @Opt1110       = "Lotus 1-2-3 Ver 3.0"               */
  35. /*  @Qstring @Opt1115       = "Lotus 1-2-3 Ver 3.1"               */
  36.  
  37. /*  @Qstring @Opt1200       = "Word Ver 5.0 800x600 16-colors"   */
  38. /*  @Qstring @Opt1210       = "Word Ver 5.5 800x600, 1024x768 16-colors" */
  39.  
  40. /*  @Qstring @Opt1225       = "WordPerfect Ver 5.1"               */
  41.  
  42.     @Qstring @Opt1230       = "VGA Utilities"
  43.  
  44. /*  @Qstring @Opt1250       = "Wordstar Ver 5.5, 7.0"             */
  45.  
  46. /*  @Qstring @Opt1890       = "[OEM VGA.EXE or VGALOCAL.EXE TEXT SCREEN VARIABLE NAME]" */
  47. /*  @Qstring @Opt1910       = "[OEM1 TEXT SCREEN VARIABLE NAME]" */
  48. /*  @Qstring @Opt1920       = "[OEM2 TEXT SCREEN VARIABLE NAME]" */
  49. /*  @Qstring @Opt1930       = "[OEM3 TEXT SCREEN VARIABLE NAME]" */
  50.  
  51.     @Qstring @Line1         = "is the name of the default directory where the"
  52.     @Qstring @Line2         = "display driver(s) will be installed."
  53.     @Qstring @Line3         = "The program locates the subdirectory below the root directory"
  54.     @Qstring @Line4         = "of drive"
  55.     @Qstring @Line5         = "To choose the default, press ENTER."
  56.     @Qstring @Line6         = "To change the directory name, backspace over the currently "
  57.     @Qstring @Line7         = "displayed name and type a new name.  Press ENTER when finished."
  58.     @Qstring @Line8         = "A directory already exists with the name"
  59.     @Qstring @Line9         = "Do you want to copy the new display driver(s) over the files in this"
  60.     @Qstring @Line10        = "directory?"
  61.     @Qstring @Line11        = "After the driver(s) have been copied to their respective directories,"
  62.     @Qstring @Line12        = "refer to either the application's technical reference manual or"
  63.     @Qstring @Line13        = "the Display Drivers and Utilities manual supplied with your VGA"
  64.     @Qstring @Line14        = "for information on using the high resolution drivers."
  65.     @Qstring @Line15        = "An INSTALL.DDF file already exists in the directory "
  66.     @Qstring @Line16        = "Do you want to rename the current INSTALL.DDF file to INSTALL.BAK?"
  67.     @Qstring @Line20        = "will be installed."
  68.  
  69.  
  70.         @Qstring @redprogram    = "TURBODLD.RED"
  71.         @Qstring @thisprogram   = "RCTURBOC.EXP"
  72.         @Qstring @namethisprogram = "TurboDLD drivers"
  73.         @Qstring @helpcontact   = "Panacea Inc"
  74.         @Qstring @registration  = ""
  75.         @Qstring @registrationname = ""
  76.         @Qstring @companyname   = ""
  77.         @Qstring @regreturn     = ""
  78.         @Qstring @ourhomeexp    = ""
  79.         @Qstring @ourhomered    = ""
  80.         @Qstring @tempstring    = ""
  81.         @Qstring @bannername    = "AutoCAD / AutoSHADE / 3D Studio TurboDLD Drivers"
  82.  
  83. /*    @Dir @Opt1100Dir        = "\\123"           */
  84. /*    @Dir @Opt1110Dir        = "\\123R3"     */
  85. /*    @Dir @Opt1115Dir        = "\\123R3"         */
  86. /*    @Dir @Opt1200Dir        = "\\WORD5"         */
  87. /*    @Dir @Opt1210Dir        = "\\WORD55"        */
  88. /*    @Dir @Opt1225Dir        = "\\WP51"          */
  89.     @Dir @Opt1230Dir        = "\\VGAUTIL"
  90. /*    @Dir @Opt1250Dir        = "\\WS"            */
  91. /*  @Dir @Opt1890Dir        = "\\RAMBIOS" */
  92. /*  @Dir @Opt1910Dir        = "\\OEM1" */
  93. /*  @Dir @Opt1920Dir        = "\\OEM2" */
  94. /*  @Dir @Opt1930Dir        = "\\OEM3" */
  95. @EndVars
  96.  
  97. @Display
  98.         @Cls
  99.                            @Name
  100.                           Release @Version
  101.  
  102.        Copyright (C) Cirrus Logic, Inc 1991-1996.  All rights reserved.
  103.  
  104.     This program will install the Cirrus Logic @NameLower,
  105.     release @Version, on your computer system and verify the
  106.     integrity of the distribution disk(s).  You may press the 
  107.     [Esc] key at any time to abort the installation.  INSTALL
  108.     will ask you several questions about your computer hardware
  109.     and then give you the option of installing all
  110.     or selected @NameLower.
  111.  
  112.     Each question has a default answer.  If the default answer 
  113.     is correct, press the ENTER key in response to the question.
  114.     Otherwise, type the answer and then press the ENTER key.
  115.  
  116.     If you make a mistake while typing, press the BACKSPACE key
  117.     and then retype the answer.
  118.  
  119.                                         @Pause
  120. @EndDisplay
  121. @GetOutDrive
  122.   @Suppress A
  123.   @Suppress B 
  124.   @Cls
  125.    On which disk drive do you wish to install the @NameLower?
  126.  
  127. @EndOutDrive
  128.  
  129. OPTIONSELECT:
  130. @GetOption
  131.   @CheckBox
  132.   @Cls
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.         Select the @NameLower to install on drive @OutDrive:
  143.    - scroll up    PgUp - scroll page up    Enter     - install selections
  144.    - scroll down  PgDn - scroll page down  Space bar - toggle Yes/No
  145.   Y - all YES      N    - all NO            Esc       - Exit Install
  146.   @Option 1230 = "Cirrus Logic GD5436/46 Utilities"
  147.   @Option 1020 = "AutoCAD               Rel 11,12 or 13    Multi-res  Multi-color"
  148.   @Option 1040 = "AutoDesk 3d Studio       Ver 1.0-3.0  Multi-res  Multi-color"
  149.   @Option 1060 = "AutoShade w/ RenderMan   Ver  2.0     Multi-res  Multi-color"
  150. /*  @Option 1100 = "Lotus 1-2-3              Ver  2.x     Multi-res  16-color" */
  151. /*  @Option 1110 = "Lotus 1-2-3              Ver  3.0     Multi-res  16-color" */  
  152. /*  @Option 1115 = "Lotus 1-2-3              Ver  3.1     Multi-res  16-color" */  
  153. /*  @Option 1140 = "OS/2 16/32-bit           Ver  2.x     Multi-res  16/256 color" */
  154. /*  @Option 1195 = "Windows                  Ver  3.1     Multi-res  Multi-color" */
  155. /*  @Option 1200 = "Word                     Ver  5.0     800x600    16-color"  */
  156. /*  @Option 1210 = "Word                     Ver  5.5     800x600,1024x768 16-color" */
  157. /*  @Option 1225 = "WordPerfect              Ver  5.1     Multi-res  16-color"  */
  158. /*  @Option 1250 = "WordStar                 Ver  5.5,7.0 800x600    16-color"  */
  159. /* @Option 1890 = "OEM RAMBIOS             Ver xx.x" */
  160. /* @Option 1910 = "OEM1 User Application   Ver xx.x" */
  161. /* @Option 1920 = "OEM2 User Application   Ver xx.x" */
  162. /* @Option 1930 = "OEM3 User Application   Ver xx.x" */
  163. @EndOption
  164.  
  165. @If (
  166.         1000 [! @Option &&
  167.          1020 [! @Option &&
  168.          1040 [! @Option &&
  169.          1060 [! @Option &&
  170.          1085 [! @Option &&
  171. /*         1100 [! @Option &&      */
  172. /*         1110 [! @Option &&      */
  173. /*         1115 [! @Option &&      */
  174. /*   1140 [! @Option &&        */
  175. /*       1130 [! @Option &&                */
  176. /*       1160 [! @Option &&                */
  177. /*       1170 [! @Option &&                */
  178. /*       1095 [! @Option &&                */
  179. /*       1195 [! @Option &&    */
  180. /*       1200 [! @Option &&                */
  181. /*       1210 [! @Option &&                */
  182. /*       1220 [! @Option &&    */
  183. /*       1225 [! @Option &&                */
  184. /*       1250 [! @Option  &&       */
  185.         1230 [! @Option 
  186. /*  && 1890 [! @Option */
  187. /*  && 1910 [! @Option */
  188. /*  && 1920 [! @Option */
  189. /*  && 1930 [! @Option */
  190.         )
  191.   @Display
  192.   @Cls
  193.  
  194.                  * * *   A selection was not detected   * * *
  195.  
  196.  
  197.   At the selection menu, please use the Space bar to toggle the desired
  198.   selections and then press Enter to begin the installation procedure.
  199.  
  200.  
  201.   If no selections are desired, press Esc to exit the install program.
  202.  
  203.                                         @Pause
  204.   @EndDisplay
  205.   @Goto OPTIONSELECT
  206.  
  207. @Endif
  208.  
  209. /** OEM1 Display Screen Begins ***************************************
  210. @If (1910 [= @Option)
  211.   @GetSubdir @Opt1910Dir
  212.     @Default = "\\OEM1"
  213.     @Cls
  214.  
  215.     @Opt1910Dir @Line1
  216.     @Opt1910 @Line2
  217.  
  218.     @Line3
  219.     @Line4 @OutDrive:
  220.  
  221.     @Line5
  222.  
  223.     @Line6
  224.     @Line7
  225.  
  226.     @Line11
  227.     @Line12
  228.     @Line13
  229.     @Line14
  230.  
  231.     @PROMPT = " Which directory? "
  232.   @EndSubdir
  233.  
  234.   @If (@DirExists("@OutDrive:@Opt1910Dir"))
  235.     @GetOption
  236.     @Line8 @OutDrive:@Opt1910Dir.
  237.     @Line9
  238.     @Line10
  239.  
  240.     @Option 1911 = "Yes"
  241.     @Option 1912 = "No"
  242.  
  243.     @EndOption
  244.   @Else
  245.                 @MkDir("@OutDrive:@Opt1910Dir")
  246.   @Endif
  247. @Endif
  248. ** OEM1 Display Screen Ends *****************************************/
  249.  
  250. /** OEM2 Display Screen Begins ***************************************
  251. @If (1920 [= @Option)
  252.   @GetSubdir @Opt1920Dir
  253.     @Default = "\\OEM2"
  254.     @Cls
  255.  
  256.     @Opt1920Dir @Line1
  257.     @Opt1920 @Line2
  258.  
  259.     @Line3
  260.     @Line4 @OutDrive:
  261.  
  262.     @Line5
  263.  
  264.     @Line6
  265.     @Line7
  266.  
  267.     @Line11
  268.     @Line12
  269.     @Line13
  270.     @Line14
  271.  
  272.     @PROMPT = " Which directory? "
  273.   @EndSubdir
  274.  
  275.   @If (@DirExists("@OutDrive:@Opt1920Dir"))
  276.     @GetOption
  277.     @Line8 @OutDrive:@Opt1920Dir.
  278.     @Line9
  279.     @Line10
  280.  
  281.     @Option 1921 = "Yes"
  282.     @Option 1922 = "No"
  283.  
  284.     @EndOption
  285.   @Else
  286.                 @MkDir("@OutDrive:@Opt1920Dir")
  287.   @Endif
  288. @Endif
  289. ** OEM2 Display Screen Ends *****************************************/
  290.  
  291. /** OEM3 Display Screen Begins ***************************************
  292. @If (1930 [= @Option)
  293.   @GetSubdir @Opt1930Dir
  294.     @Default = "\\OEM3"
  295.     @Cls
  296.  
  297.     @Opt1930Dir @Line1
  298.     @Opt1930 @Line2
  299.  
  300.     @Line3
  301.     @Line4 @OutDrive:
  302.  
  303.     @Line5
  304.  
  305.     @Line6
  306.     @Line7
  307.  
  308.     @Line11
  309.     @Line12
  310.     @Line13
  311.     @Line14
  312.  
  313.     @PROMPT = " Which directory? "
  314.   @EndSubdir
  315.  
  316.   @If (@DirExists("@OutDrive:@Opt1930Dir"))
  317.     @GetOption
  318.     @Line8 @OutDrive:@Opt1930Dir.
  319.     @Line9
  320.     @Line10
  321.  
  322.     @Option 1931 = "Yes"
  323.     @Option 1932 = "No"
  324.  
  325.     @EndOption
  326.   @Else
  327.                 @MkDir("@OutDrive:@Opt1920Dir")
  328.   @Endif
  329. @Endif
  330. ** OEM2 Display Screen Ends *****************************************/
  331.  
  332. /** OEM RAMBIOS Display Screen Begins ********************************
  333. @If (1890 [= @Option)
  334.   @GetSubdir @Opt1890Dir
  335.     @Default = "\\RAMBIOS"
  336.     @Cls
  337.  
  338.     @Opt1890Dir @Line1
  339.     @Opt1890 utility will be installed.
  340.  
  341.     @Line3
  342.     @Line4 @OutDrive:
  343.  
  344.     @Line5
  345.  
  346.     @Line6
  347.     @Line7
  348.  
  349.     @Line11
  350.     @Line12
  351.     @Line13
  352.     @Line14
  353.  
  354.     @PROMPT = " Which directory? "
  355.   @EndSubdir
  356.  
  357.   @If (@Exists "@OutDrive:@Opt1890Dir")
  358.     @GetOption
  359.     @Line8 @OutDrive:@Opt1890Dir.
  360.     @Line9
  361.     @Line10
  362.  
  363.     @Option 1891 = "Yes"
  364.     @Option 1892 = "No"
  365.  
  366.     @EndOption
  367.   @Endif
  368. @Endif
  369. ** OEM RAMBIOS Display Screen Ends ********************************/
  370.  
  371. @If ((1020 [= @Option)|| (1040 [= @Option)|| (1060 [= @Option))
  372.         // setup some of the local var defs
  373.  
  374.         // Used to display the banner on all screens
  375.         @xx = @strlen("@bannername")
  376.         @bannercol = (38 - @xx/2)
  377.  
  378.         // get the correct string for the EXP and the RED files
  379.         @ourhomeexp = @wherearewe(@thisprogram)
  380.         @ourhomered = @wherearewe(@redprogram)
  381.  
  382.         // used to check for Write Protect on floppy
  383.         @If (@IsOem == 1)
  384.            @goto Acad_OEM
  385.         @Endif
  386.  
  387.         @If (@InDrive == A)
  388.            @xx = @homedrive(0)
  389.         @ElseIf (@InDrive == B)
  390.            @xx = @homedrive(1)
  391.         @EndIf
  392.  
  393.         @If (@xx == 1)          // if error found ...
  394.                 @tempstring = " Install must have write access to your @namethisprogram "
  395.                 @xx = @strlen(@tempstring)
  396.                 @ourcol = (38 - @xx/2)
  397.  
  398.                 @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  399.                 @movecstr(2,8,62,"║                                                           ║")
  400.                 @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  401.                 @MoveCStr(2, @bannercol, 48, @bannername)
  402.  
  403.                 @movecstr(7,13,79,"╔═════════════════════════════════════════════════╗")
  404.             @movecstr(7,31,207," W A R N I N G ")
  405.                 @movecstr(8,13,79,"║                                                 ║")
  406.                 @movecstr(9,13,79,"║                                                 ║")
  407.                 @movecstr(9,15,79," The diskette in Drive @InDrive is ")
  408.                 @movecstr(9,43,78," -WRITE PROTECTED- ")
  409.                 @movecstr(10,13,79,"║                                                 ║")
  410.                 @movecstr(11,13,79,"╚═════════════════════════════════════════════════╝")
  411.  
  412.                 @movecstr(15,@ourcol,31, @tempstring)
  413.                 @movecstr(16,@ourcol,31," diskette in order to continue. ")
  414.  
  415.                 @movecstr(19,@ourcol,31," Press any key to exit to DOS, unprotect the ")
  416.                 @movecstr(20,@ourcol,31," @namethisprogram diskette and then run INSTALL again. ")
  417.  
  418.                 @move(22,0)
  419.                 @waitkey
  420.                 @exit
  421.  
  422.         @Endif
  423.  
  424.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  425.         @movecstr(2,8,62,"║                                                           ║")
  426.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  427.         @MoveCStr(2, @bannercol, 48, @bannername)
  428.         
  429.         @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
  430.         @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
  431.         @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
  432.         @movecstr(9,5,31,"your @name Users Guide, in particular the ")
  433.         @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
  434.         @movecstr(11,5,31,"and Configuring topics.")
  435.         @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
  436.         @movecstr(14,5,31,"are using AutoCAD Release 11 and follow configuration")
  437.         @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
  438.         @movecstr(16,5,31,"topic in your @name Users Guide.")
  439.  
  440.  
  441.         @Display
  442.                 @move(21,0)
  443.                                         @Pause
  444.         @enddisplay
  445.  
  446.  
  447.         // First thing to do is to check the software and 
  448.         // register it if need to..
  449.  
  450.         @regreturn = @ckregisterinfo(@ourhomeexp)
  451.  
  452.         @If (@strlen("@regreturn") == 0)
  453.         @GoTo Not_Registered
  454.         @Endif
  455.  
  456.         @If (@strfind(@regreturn, "ERROR") == -1)
  457.         @GoTo Show_Registered
  458.         @Endif
  459.  
  460.         // If here, there must have been an error 
  461.  
  462. ShowError:
  463.  
  464.         @xx = @strlen(@regreturn)
  465.         @ourcol = (40 - @xx/2)
  466.         // adjust for junk on the end of the string
  467.         @xx = (@xx - 1)
  468.  
  469.         @Display @Cls
  470.         @move(4,0)
  471.     There was an error detected by the install software.
  472.  
  473.         The error was:
  474.  
  475.         @movecstr(10,@ourcol,30,@strhead("@regreturn", @xx))
  476.  
  477.         @move(12,0)
  478.         Please insure that you have the correct files on your disk.
  479.  
  480.         If you need help, please contact @helpcontact.
  481.         @move(21,0)
  482.                                         @Pause
  483.         @Exit
  484.         @enddisplay
  485.  
  486.         // If we are here then the software has been registered
  487.  
  488. Show_Registered:
  489.  
  490.         @regreturn = @ckregisterinfo(@ourhomeexp)
  491.  
  492.         // Clear the options out
  493.         @clearoption(1)
  494.         @clearoption(2)
  495.  
  496.         @xx = @strlen(@regreturn)
  497.         @ourcol = (38 - @xx/2)
  498.  
  499.         @GetOption
  500.         @LocalWindow(18,40)
  501.  
  502.         @movecstr(1,22,79,"╔═════════════════════════════╗")
  503.         @movecstr(2,22,79,"║                             ║")
  504.         @movecstr(2,24,78,"This Copy Is Registered To:")
  505.         @movecstr(3,22,79,"╚═════════════════════════════╝")
  506.  
  507.         @movecstr(7,@ourcol,30,@strhead("@regreturn", @xx))
  508.  
  509.         @move(9,0)
  510.            The program has been installed and is protected by federal
  511.            copyright laws.  If you need additional copies of this software 
  512.            please contact @helpcontact.
  513.  
  514.          @Option 1 = "Continue"
  515.          @Option 2 = "Exit Install"
  516.  
  517.         @EndOption
  518.  
  519.         @If(1 [= @Option)
  520.                 @Goto Get_Acad
  521.         @Else
  522.            @Exit
  523.         @Endif
  524.  
  525. Not_Registered:
  526.  
  527.         @getstring @registration
  528.  
  529.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  530.         @movecstr(2,8,62,"║                                                           ║")
  531.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  532.         @MoveCStr(2, @bannercol, 48, @bannername)
  533.  
  534.         @LocalWindow(13,40)
  535.  
  536.         @movecstr(7,3,31,"Please type in your Full Name as you wish it to appear for registration")
  537.         @movecstr(8,3,31,"purposes. For Corporate installations, you may wish to enter the name of")
  538.         @movecstr(9,3,31,"your CAD Manager.")
  539.  
  540.         @movecstr(18,8,31,"Note: The total combined length of [Your Name] and, from the")
  541.         @movecstr(19,8,31,"      next screen, [Company Name] cannot exceed 64 characters.")
  542.         @movecstr(20,8,31,"      If the total is longer, [Company Name] will be truncated.")
  543.  
  544.         @prompt = "    Please Enter Your Full Name    "
  545.  
  546.         @EndString
  547.  
  548.         // get the length of the string so-far
  549.  
  550.         @strlens = (64 - @strlen("@registration"))
  551.  
  552.         @getstring @companyname
  553.  
  554.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  555.         @movecstr(2,8,62,"║                                                           ║")
  556.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  557.         @MoveCStr(2, @bannercol, 48, @bannername)
  558.  
  559.         @LocalWindow(13,40)
  560.  
  561.         @movecstr(7,14,31,"Please type in your Company Name as you would like")
  562.         @movecstr(8,14,31,"to have it appear for registration purposes.")
  563.  
  564.         @movecstr(18,9,31,"Note: You have @strlens characters available for [Company Name].")
  565.         @movecstr(19,9,31,"      If you enter a Company Name longer than @strlens characters,")
  566.         @movecstr(20,9,31,"      the additional information will be truncated.")
  567.  
  568.  
  569.         @prompt = "    Please Enter Your Company Name    "
  570.  
  571.         @EndString
  572.  
  573.         @registrationname = "@registration, @companyname"
  574.  
  575.         // Clear the options out
  576.         @clearoption(10)
  577.         @clearoption(20)
  578.  
  579.         @xx = @strlen(@registrationname)
  580.         @ourcol = (40 - @xx/2)
  581.  
  582.         @GetOption
  583.  
  584.         @LocalWindow(18,40)
  585.  
  586.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  587.         @movecstr(2,8,62,"║                                                           ║")
  588.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  589.         @Movecstr(2, @bannercol, 48, @bannername)
  590.  
  591.         @movecstr(8,18,31,"You have entered the following information:")
  592.  
  593.         @movecstr(12, @ourcol, 62, @registrationname)
  594.  
  595.  
  596.          @Option 10 = "Information Correct"
  597.          @Option 20 = "Information Not Correct"
  598.  
  599.         @EndOption
  600.  
  601.         @If(20 [= @Option)
  602.            @Goto Not_Registered
  603.         @Endif
  604.  
  605.         // NULL out the string b4 using again
  606.  
  607.         @tempstring = ""
  608.  
  609.         // If we are here, do the registration ....
  610.  
  611.         @regreturn = @registerit(@registrationname @ourhomeexp)
  612.  
  613.         @If (@strfind(@regreturn, "ERROR") != -1)
  614.         @GoTo ShowError
  615.         @Endif
  616. Acad_OEM:
  617.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  618.         @movecstr(2,8,62,"║                                                           ║")
  619.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  620.         @MoveCStr(2, @bannercol, 48, @bannername)
  621.         
  622.         @movecstr(5,5,31,"This utility program registers your copy of @namethisprogram and")
  623.         @movecstr(6,5,31,"installs the software into the correct directory or sub-directories.")
  624.         @movecstr(8,5,31,"If you have any questions regarding this process, please refer to")
  625.         @movecstr(9,5,31,"your @name Users Guide, in particular the ")
  626.         @movecstr(10,5,31,"Autodesk-ADI 4.2 section, Quick Start Guide, Installation")
  627.         @movecstr(11,5,31,"and Configuring topics.")
  628.         @movecstr(13,5,31,"If you are installing for 3D Studio only, install as though you")
  629.         @movecstr(14,5,31,"are using AutoCAD Release 11 and the follow configuration")
  630.         @movecstr(15,5,31,"instructions in the Configuring AutoShade, 3D Studio and AVE Render") 
  631.         @movecstr(16,5,31,"topic in your @name Users Guide.")
  632.  
  633.         @Display
  634.                 @move(21,0)
  635.                                         @Pause
  636.         @enddisplay
  637.  
  638. Get_Acad:
  639.         // clear the options first
  640.         @clearoption(1000)
  641.         @clearoption(2000)
  642.         @clearoption(3000)
  643.  
  644.         @GetOption @cls
  645.         @LocalWindow(14,40)
  646.  
  647.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  648.         @movecstr(2,8,62,"║                                                           ║")
  649.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  650.         @Movecstr(2, @bannercol, 48, @bannername)
  651.  
  652.         @move(8,0)
  653.               Please enter the Version of AutoCAD you are running:
  654.  
  655.         @Option 1000 = " Release 11, AutoShade, 3D Studio or AVE Render "
  656.         @Option 2000 = "             Release 12                         "
  657.         @Option 3000 = "             Release 13                         "
  658.  
  659.         @EndOption
  660.  
  661.         @If(1000 [= @Option)
  662.            @AcadDir = "TURBODLD"
  663.         @EndIf
  664.  
  665.         @If(3000 [= @Option)
  666.            @AcadDir = "ACAD13\\DOS\\DRV"
  667.         @EndIf
  668.  
  669.         @GetSubDir @AcadDir
  670.         @Cls
  671.         @LocalWindow(14,40)
  672.  
  673.         @If(1000 [= @Option)
  674.                 @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  675.                 @movecstr(2,8,62,"║                                                           ║")
  676.                 @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  677.                 @Movecstr(2, @bannercol, 48, @bannername)
  678.  
  679.                 @movecstr(6,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 11.")
  680.                 @movecstr(7,5,31,"Enter a sub-directory name on @OutDrive: for @namethisprogram")
  681.                 @movecstr(8,5,31,"files. If the sub-directory does not exist, @namethisprogram Install")
  682.                 @movecstr(9,5,31,"will create it for you.")
  683.         @EndIf
  684.         @If(2000 [= @Option)
  685.                 @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  686.                 @movecstr(2,8,62,"║                                                           ║")
  687.                 @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  688.                 @Movecstr(2, @bannercol, 48, @bannername)
  689.  
  690.                 @movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 12.")
  691.                 @movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
  692.                 @movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD\\DRV sub-directory name")
  693.                 @movecstr(8,5,31,"below.")
  694.                 @movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
  695.                 @movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
  696.                 @movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
  697.                 @movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
  698.                 @movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
  699.                 @movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
  700.         @EndIf
  701.         @If(3000 [= @Option)
  702.                 @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  703.                 @movecstr(2,8,62,"║                                                           ║")
  704.                 @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  705.                 @Movecstr(2, @bannercol, 48, @bannername)
  706.  
  707.                 @movecstr(5,5,31,"You have chosen to install @namethisprogram for AutoCAD Release 13.")
  708.                 @movecstr(6,5,31,"We recommend installing into the DRV sub-directory off of your main")
  709.                 @movecstr(7,5,31,"AutoCAD sub-directory. Please enter your ACAD13\\DOS\\DRV sub-directory")
  710.                 @movecstr(8,5,31,"name below.")
  711.                 @movecstr(10,5,31,"You may also install @namethisprogram into its own sub-directory, to")
  712.                 @movecstr(11,5,31,"do so, enter an alternate sub-directory name. If the sub-directory does")
  713.                 @movecstr(12,5,31,"not exist, @namethisprogram Install will create it for you.")
  714.                 @movecstr(19,5,31,"Please note that if you install @namethisprogram into an alternate")
  715.                 @movecstr(20,5,31,"sub-directory you will have to alter your ACADDRV environment variable")
  716.                 @movecstr(21,5,31,"to include the @namethisprogram sub-directory.")
  717.         @EndIf
  718.         @EndSubDir
  719.  
  720.         // Clear the options out
  721.         @clearoption(10)
  722.         @clearoption(20)
  723.  
  724.         @If (@DirExists("@OutDrive:\\@AcadDir"))
  725.           @GoTo Report
  726.         @Else
  727.           @GetOption
  728.           @LocalWindow(12,40)
  729.                 @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  730.                 @movecstr(2,8,62,"║                                                           ║")
  731.                 @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  732.                 @Movecstr(2, @bannercol, 48, @bannername)
  733.             @move(4,0)
  734.  
  735.         @AcadDir path was not found on @OutDrive.
  736.         
  737.         Would you like to create @AcadDir at this time?
  738.  
  739.  
  740.                  @Option 10 = "Yes, create the path"
  741.                  @Option 20 = "No; re-enter the information"
  742.  
  743.           @EndOption
  744.         @Endif
  745.  
  746.         @tempstring = " Creating @OutDrive:@AcadDir, please stand-by ! "
  747.         @xx = @strlen(@tempstring)
  748.         @ourcol = (40 - @xx/2)
  749.  
  750.         @If(10 [= @Option)
  751.            @Display @Cls
  752.                 @movecstr(12,@ourcol,48,@tempstring)
  753.                 @MkDir("@OutDrive:@AcadDir")
  754.            @EndDisplay
  755.            @Goto WeBuiltPath
  756.         @Else
  757.            @Goto Get_Acad
  758.         @Endif
  759.  
  760.         // Now we know where to install TURBODLD, tell the user whats going on
  761.  
  762. Report:
  763.  
  764.         @clearoption(10)
  765.         @clearoption(20)
  766.  
  767.         @tempstring = " @OutDrive:@AcadDir exists, do you wish to use this directory? "
  768.         @xx = @strlen(@tempstring)
  769.         @ourcol = (38 - @xx/2)
  770.  
  771.         @Getoption
  772.         @localwindow(14,40)
  773.  
  774.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  775.         @movecstr(2,8,62,"║                                                           ║")
  776.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  777.         @Movecstr(2, @bannercol, 48, @bannername)
  778.  
  779.         @movecstr(9,@ourcol,48,@tempstring)
  780.          @Option 10 = "Yes, Continue"
  781.          @Option 20 = "No; re-enter the information"
  782.         @Endoption
  783.  
  784.         @If(20 [= @Option)
  785.            @Goto Get_Acad
  786.         @Endif
  787.  
  788.         // we get here from building the dir\sub-dir and not asking if they want to use it.
  789.  
  790. WeBuiltPath:
  791.  
  792.         // Test the amount of free room left on the dest drive
  793.  
  794.         @Display @Cls
  795.  
  796.                 @if (@diskfree(@OutDrive) < 1200000)
  797.  
  798.           @move(7,0)
  799.       The selected output disk drive only has @diskfree(@OutDrive) bytes.
  800.  
  801.       @namethisprogram requires a minumum of 1.2mb.
  802.  
  803.       The Install program will now exit, please correct this problem
  804.  
  805.       and re-run the Install program.
  806.             @move(21,0)
  807.                                         @Pause
  808.                 @exit
  809.                 @endif
  810.         @enddisplay
  811.  
  812.         // Clear the options out
  813.         @clearoption(10)
  814.         @clearoption(20)
  815.  
  816.         @tempstring = " @OutDrive:@AcadDir "
  817.         @xx = @strlen(@tempstring)
  818.         @ourcol = (40 - @xx/2)
  819.  
  820.         @movecstr(12,@ourcol,63,@tempstring)
  821.  
  822.         @tempstring = " @NameThisProgram will be installed in: "
  823.         @xx = @strlen(@tempstring)
  824.         @ourcol = (40 - @xx/2)
  825.  
  826.         @GetOption
  827.  
  828.         @LocalWindow(17,40)
  829.  
  830.         @movecstr(1,8,62,"╔═══════════════════════════════════════════════════════════╗")
  831.         @movecstr(2,8,62,"║                                                           ║")
  832.         @movecstr(3,8,62,"╚═══════════════════════════════════════════════════════════╝")
  833.         @Movecstr(2, @bannercol, 48, @bannername)
  834.  
  835.         @movecstr(8,@ourcol,63,@tempstring)
  836.          @Option 10 = "Yes, this is the correct path"
  837.          @Option 20 = "No; re-enter the information"
  838.         @endoption
  839.  
  840.         @If(10 [= @Option)
  841.            @Goto Start_Copy
  842.         @Else
  843.            @Goto Get_Acad
  844.         @Endif
  845.  
  846. Start_Copy:
  847.  
  848. @Display
  849.  
  850. // First check if this is v11
  851.  
  852. @If(1000 [= @Option)
  853. //        Creating FASTACAD.BAT and PANA3DS.BAT files, please stand-by
  854.  
  855.    @Write("@OutDrive:\\@AcadDir\\FASTACAD.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
  856.    @Write( , , "SET DSPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  857.    @Write( , , "SET RDPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  858.    @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  859. @Else
  860. //                  Creating PANA3DS.BAT file, please stand-by
  861. @EndIf
  862.  
  863. @Write("@OutDrive:\\@AcadDir\\PANA3DS.BAT", "wt", "SET DLDCFG=@OutDrive:\\@AcadDir\n")
  864. @Write( , , "SET RCPADI=@OutDrive:\\@AcadDir\\@thisprogram\n")
  865.  
  866. @enddisplay
  867.  
  868. // This part is a DOS style copy ...
  869.  
  870. @tempstring = "Processing @namethisprogram Install information -- Please Wait."
  871. @xx = @strlen(@tempstring)
  872. @ourcol = (40 - @xx/2)
  873.  
  874. @copy("@ourhomeexp", "@OutDrive:\\@AcadDir\\@thisprogram")
  875. @Endif
  876. /*********** Begin modify ***************
  877. @If (1100 [= @Option)
  878.   @GetSubdir @Opt1100Dir
  879.     @Default = "\\123"
  880.     @Cls
  881.  
  882.     @Opt1100Dir @Line1
  883.     @Opt1100 @Line2
  884.  
  885.     @Line3
  886.     @Line4 @OutDrive:
  887.  
  888.     @Line5
  889.  
  890.     @Line6
  891.     @Line7
  892.  
  893.     @Line11
  894.     @Line12
  895.     @Line13
  896.     @Line14
  897.  
  898.     @PROMPT = " Which directory? "
  899.   @EndSubdir
  900.   @If (@DirExists("@OutDrive:@Opt1100Dir"))
  901.     @GetOption
  902.         @LocalWindow(14,40)
  903.     @Line8 @OutDrive:@Opt1100Dir.
  904.     @Line9
  905.     @Line10
  906.  
  907.     @Option 1101 = "Yes"
  908.     @Option 1102 = "No"
  909.  
  910.     @EndOption
  911.   @Else
  912.                 @MkDir("@OutDrive:@Opt1100Dir")
  913.   @Endif
  914. @Endif
  915.  
  916. **************** END MODIFIED *****************************/
  917. /*********************************
  918. @If (1110 [= @Option)
  919.   @GetSubdir @Opt1110Dir
  920.     @Default = "\\123R3"
  921.     @Cls
  922.  
  923.     @Opt1110Dir @Line1
  924.     @Opt1110 @Line2
  925.  
  926.     @Line3
  927.     @Line4 @OutDrive:
  928.  
  929.     @Line5
  930.  
  931.     @Line6
  932.     @Line7
  933.  
  934.     @Line11
  935.     @Line12
  936.     @Line13
  937.     @Line14
  938.  
  939.     @PROMPT = " Which directory? "
  940.   @EndSubdir
  941.  
  942.   @If (@DirExists("@OutDrive:@Opt1110Dir"))
  943.     @GetOption
  944.         @LocalWindow(14,40)
  945.     @Line8 @OutDrive:@Opt1110Dir.
  946.     @Line9
  947.     @Line10
  948.  
  949.     @Option 1111 = "Yes"
  950.     @Option 1112 = "No"
  951.  
  952.     @EndOption
  953.   @Else
  954.                 @MkDir("@OutDrive:@Opt1110Dir")
  955.   @Endif
  956. @Endif
  957. *********************************/
  958. /***********************
  959. @If (1115 [= @Option)
  960.   @GetSubdir @Opt1115Dir
  961.     @Default = "\\123R3"
  962.     @Cls
  963.  
  964.     @Opt1115Dir @Line1
  965.     @Opt1115 @Line2
  966.  
  967.     @Line3
  968.     @Line4 @OutDrive:
  969.  
  970.     @Line5
  971.  
  972.     @Line6
  973.     @Line7
  974.  
  975.     @Line11
  976.     @Line12
  977.     @Line13
  978.     @Line14
  979.  
  980.     @PROMPT = " Which directory? "
  981.   @EndSubdir
  982.  
  983.   @If (@DirExists("@OutDrive:@Opt1115Dir"))
  984.     @GetOption
  985.         @LocalWindow(14,40)
  986.     @Line8 @OutDrive:@Opt1115Dir.
  987.     @Line9
  988.     @Line10
  989.  
  990.     @Option 1116 = "Yes"
  991.     @Option 1117 = "No"
  992.  
  993.     @EndOption
  994.   @Else
  995.                 @MkDir("@OutDrive:@Opt1115Dir")
  996.   @Endif
  997. @Endif
  998. ***************************************/
  999. /*
  1000. @If (1140 [= @Option)
  1001.   @Display
  1002.   @Cls
  1003.  
  1004.  
  1005.   The OS/2 WPS/PM version 2.x display device driver requires
  1006.   special procedures in order to correctly install on your system.
  1007.  
  1008.   Please refer to the display device driver section of the display drivers
  1009.   and utility user guide for more information on installing this driver.
  1010.  
  1011.  
  1012.  
  1013.                                         @Pause
  1014.   @EndDisplay
  1015. @Endif
  1016. */
  1017. /*
  1018. @If (1195 [= @Option)
  1019.   @Display
  1020.   @Cls
  1021.  
  1022.  
  1023.   The Windows version 3.1 display device drivers requires that you
  1024.   run the setup program provided with Windows 3.1.  You may also
  1025.   want to use the Windows Install program provided on the Windows
  1026.   display drivers disk.  The install program will install a resolution
  1027.   setting utility to enable you to change resolution and select colors
  1028.   without the need to rerun the Windows Setup program.
  1029.  
  1030.   Please refer to the display device drivers section of the display drivers
  1031.   and utility user guide for more information on installing this driver.
  1032.  
  1033.  
  1034.  
  1035.                                         @Pause
  1036.   @EndDisplay
  1037. @Endif
  1038. */
  1039. /*
  1040. @If (1200 [= @Option)
  1041.   @GetSubdir @Opt1200Dir
  1042.     @Default = "\\WORD5"
  1043.     @Cls
  1044.  
  1045.     @Opt1200Dir @Line1
  1046.     @Opt1200 @Line2
  1047.  
  1048.     @Line3
  1049.     @Line4 @OutDrive:
  1050.  
  1051.     @Line5
  1052.  
  1053.     @Line6
  1054.     @Line7
  1055.  
  1056.     @Line11
  1057.     @Line12
  1058.     @Line13
  1059.     @Line14
  1060.  
  1061.     @PROMPT = " Which directory? "
  1062.   @EndSubdir
  1063.  
  1064.   @If (@DirExists("@OutDrive:@Opt1200Dir"))
  1065.     @GetOption
  1066.         @LocalWindow(14,40)
  1067.     @Line8 @OutDrive:@Opt1200Dir.
  1068.     @Line9
  1069.     @Line10
  1070.  
  1071.     @Option 1201 = "Yes"
  1072.     @Option 1202 = "No"
  1073.  
  1074.     @EndOption
  1075.   @Else
  1076.                 @MkDir("@OutDrive:@Opt1200Dir")
  1077.   @Endif
  1078. @Endif
  1079. */
  1080. /*
  1081. @If (1210 [= @Option)
  1082.   @GetSubdir @Opt1210Dir
  1083.     @Default = "\\WORD55"
  1084.     @Cls
  1085.  
  1086.     @Opt1210Dir @Line1
  1087.     @Opt1210 @Line20 
  1088.  
  1089.     @Line3
  1090.     @Line4 @OutDrive:
  1091.  
  1092.     @Line5
  1093.  
  1094.     @Line6
  1095.     @Line7
  1096.  
  1097.     @Line11
  1098.     @Line12
  1099.     @Line13
  1100.     @Line14
  1101.  
  1102.     @PROMPT = " Which directory? "
  1103.   @EndSubdir
  1104.  
  1105.   @If (@DirExists("@OutDrive:@Opt1210Dir"))
  1106.     @GetOption
  1107.         @LocalWindow(14,40)
  1108.     @Line8 @OutDrive:@Opt1210Dir.
  1109.     @Line9
  1110.     @Line10
  1111.  
  1112.     @Option 1211 = "Yes"
  1113.     @Option 1212 = "No"
  1114.  
  1115.     @EndOption
  1116.   @Else
  1117.                 @MkDir("@OutDrive:@Opt1210Dir")
  1118.   @Endif
  1119. @Endif
  1120. */
  1121. /*
  1122. @If (1220 [= @Option)
  1123.   @GetSubdir @Opt1220Dir
  1124.     @Default = "\\WP50"
  1125.     @Cls
  1126.  
  1127.     @Opt1220Dir @Line1
  1128.     @Opt1220 @Line2
  1129.  
  1130.     @Line3
  1131.     @Line4 @OutDrive:
  1132.  
  1133.     @Line5
  1134.  
  1135.     @Line6
  1136.     @Line7
  1137.  
  1138.     @Line11
  1139.     @Line12
  1140.     @Line13
  1141.     @Line14
  1142.  
  1143.     @PROMPT = " Which directory? "
  1144.   @EndSubdir
  1145.  
  1146.   @If (@DirExists("@OutDrive:@Opt1220Dir"))
  1147.     @GetOption
  1148.         @LocalWindow(14,40)
  1149.     @Line8 @OutDrive:@Opt1220Dir.
  1150.     @Line9
  1151.     @Line10
  1152.  
  1153.     @Option 1221 = "Yes"
  1154.     @Option 1222 = "No"
  1155.  
  1156.     @EndOption
  1157.   @Else
  1158.                 @MkDir("@OutDrive:@Opt1220Dir")
  1159.   @Endif
  1160. @Endif
  1161. */
  1162. /*
  1163. @If (1225 [= @Option)
  1164.   @GetSubdir @Opt1225Dir
  1165.     @Default = "\\WP51"
  1166.     @Cls
  1167.  
  1168.     @Opt1225Dir @Line1
  1169.     @Opt1225 @Line2
  1170.  
  1171.     @Line3
  1172.     @Line4 @OutDrive:
  1173.  
  1174.     @Line5
  1175.  
  1176.     @Line6
  1177.     @Line7
  1178.  
  1179.     @Line11
  1180.     @Line12
  1181.     @Line13
  1182.     @Line14
  1183.  
  1184.     @PROMPT = " Which directory? "
  1185.   @EndSubdir
  1186.  
  1187.   @If (@DirExists("@OutDrive:@Opt1225Dir"))
  1188.     @GetOption
  1189.         @LocalWindow(14,40)
  1190.     @Line8 @OutDrive:@Opt1225Dir.
  1191.         @Line9
  1192.     @Line10
  1193.  
  1194.     @Option 1226 = "Yes"
  1195.     @Option 1227 = "No"
  1196.  
  1197.     @EndOption
  1198.   @Else
  1199.                 @MkDir("@OutDrive:@Opt1225Dir")
  1200.   @Endif
  1201. @Endif
  1202. */
  1203.  
  1204. @If (1230 [= @Option)
  1205.   @GetSubdir @Opt1230Dir
  1206.     @Default = "\\VGAUTIL"
  1207.     @Cls
  1208.  
  1209.     @Opt1230Dir @Line1
  1210.     @Opt1230 @Line2
  1211.  
  1212.     @Product utilities will be installed.
  1213.  
  1214.     @Line3
  1215.     @Line4 @OutDrive:
  1216.  
  1217.     @Line5
  1218.  
  1219.     @Line6
  1220.     @Line7
  1221.  
  1222.     @Line11
  1223.     @Line12
  1224.     @Line13
  1225.     @Line14
  1226.  
  1227.     @PROMPT = " Which directory? "
  1228.   @EndSubdir
  1229.  
  1230.   @If (@DirExists("@OutDrive:@Opt1230Dir"))
  1231.     @GetOption
  1232.         @LocalWindow(14,40)
  1233.     @Line8 @OutDrive:@Opt1230Dir.
  1234.         @Line9
  1235.     @Line10
  1236.  
  1237.     @Option 1231 = "Yes"
  1238.     @Option 1232 = "No"
  1239.  
  1240.     @EndOption
  1241.   @Else
  1242. /* @MkDir() was unsuccessful copying files, use @System() instead */
  1243. /*              @MkDir("@OutDrive:@Opt1230Dir") */
  1244.                 @System("md @OutDrive:@Opt1230Dir")     
  1245.   @Endif
  1246. @Endif
  1247. /*
  1248. @If (1250 [= @Option)
  1249.   @GetSubdir @Opt1250Dir
  1250.     @Default = "\\WS"
  1251.     @Cls
  1252.  
  1253.     @Opt1250Dir @Line1
  1254.     @Opt1250 @Line2
  1255.  
  1256.     @Line3
  1257.     @Line4 @OutDrive:
  1258.  
  1259.     @Line5
  1260.  
  1261.     @Line6
  1262.     @Line7
  1263.  
  1264.     @Line11
  1265.     @Line12
  1266.     @Line13
  1267.     @Line14
  1268.  
  1269.     @PROMPT = " Which directory? "
  1270.   @EndSubdir
  1271.  
  1272.   @If (@DirExists("@OutDrive:@Opt1250Dir"))
  1273.     @GetOption
  1274.         @LocalWindow(14,40)
  1275.     @Line8 @OutDrive:@Opt1250Dir.
  1276.  
  1277.  
  1278.  
  1279.  
  1280.  
  1281.  
  1282.  
  1283.     @Line9
  1284.     @Line10
  1285.  
  1286.     @Option 1251 = "Yes"
  1287.     @Option 1252 = "No"
  1288.  
  1289.     @EndOption
  1290.   @Else
  1291.                 @MkDir("@OutDrive:@Opt1250Dir")
  1292.   @Endif
  1293. @Endif
  1294. */
  1295. /***********************************************************************/
  1296. @If (
  1297.          1000 [! @Option &&
  1298.          1020 [! @Option &&
  1299.          1040 [! @Option &&
  1300.          1060 [! @Option &&
  1301.          1080 [! @Option &&
  1302.          1085 [! @Option &&
  1303.            1100 [! @Option &&  
  1304.            1110 [! @Option &&    
  1305.            1115 [! @Option &&   
  1306.          1130 [! @Option &&
  1307.          1160 [! @Option &&
  1308.          1170 [! @Option &&
  1309.          1200 [! @Option &&
  1310.          1210 [! @Option &&
  1311. /*       1220 [! @Option &&     */
  1312.          1225 [! @Option &&
  1313.          1250 [! @Option &&
  1314.          1230 [! @Option 
  1315. /*  && 1890 [! @Option */
  1316. /*  && 1910 [! @Option */
  1317. /*  && 1920 [! @Option */
  1318. /*  && 1930 [! @Option */
  1319.         )
  1320.  
  1321.   @Goto NOINSTALLATION
  1322. @Endif
  1323.  
  1324. /***********************************************************************/
  1325. @DefineDisk
  1326.   @LABEL  = "Software disk 1 of 6"
  1327.   @If ((1020 [= @Option && 1022 [! @Option)||(1040 [= @Option && 1042 [! @Option)||(1060 [= @Option && 1062 [! @Option))
  1328.    @BeginLib @ourhomered
  1329.        @File *.* @Out @OutDrive:\\@AcadDir\\*.*
  1330.    @EndLib
  1331. /*    @File ACADP\RCTURBOC.EXP                    @Out @OutDrive:\\@AcadDir\RCTURBOC.EXP  */
  1332. /*    @File ACADP\READ.ME                         @Out @OutDrive:\\@AcadDir\READ.ME       */
  1333.   @Endif
  1334.   @If (1100 [= @Option && 1102 [! @Option)
  1335.         @File LOTUS2X\AVGAGR.DRV                        @Out @Opt1100Dir\AVGAGR.DRV
  1336.         @File LOTUS2X\TC132X25.DRV                      @Out @Opt1100Dir\TC132X25.DRV
  1337.         @File LOTUS2X\TC132X43.DRV                      @Out @Opt1100Dir\TC132X43.DRV
  1338.   @Endif
  1339.   @If (1110 [= @Option && 1112 [! @Option)
  1340.         @BeginLib LOTUS.RED
  1341.         @File INSTALL.30                               @Out @Opt1110Dir\INSTALL.DDF @AskOverwrite
  1342.         @EndLib
  1343.         @File LOTUS30\VGAS31CC.VBD                      @Out @Opt1110Dir\VGAS31CC.VBD
  1344.         @File LOTUS30\VGAS40CC.VBD                      @Out @Opt1110Dir\VGAS40CC.VBD
  1345.         @File LOTUS30\VGAS42CC.VBD                      @Out @Opt1110Dir\VGAS42CC.VBD
  1346.         @File LOTUS30\VGAS54CC.VBD                      @Out @Opt1110Dir\VGAS54CC.VBD
  1347.         @File LOTUS30\VGAS75CC.VBD                      @Out @Opt1110Dir\VGAS75CC.VBD
  1348.         @File LOTUS30\VGAS96CC.VBD                      @Out @Opt1110Dir\VGAS96CC.VBD
  1349.         @File LOTUS30\L13AVGA1.DLD                      @Out @Opt1110Dir\L13AVGA1.DLD
  1350.         @File LOTUS30\L13AVGA2.DLD                      @Out @Opt1110Dir\L13AVGA2.DLD
  1351.   @Endif
  1352.   @If (1115 [= @Option && 1117 [! @Option)
  1353.         @BeginLib LOTUS.RED
  1354.         @File INSTALL.31                                @Out @Opt1115Dir\INSTALL.DDF @AskOverwrite
  1355.         @EndLib
  1356.         @File LOTUS30\VGAS31CC.VBD                      @Out @Opt1115Dir\VGAS31CC.VBD
  1357.         @File LOTUS30\VGAS40CC.VBD                      @Out @Opt1115Dir\VGAS40CC.VBD
  1358.         @File LOTUS30\VGAS42CC.VBD                      @Out @Opt1115Dir\VGAS42CC.VBD
  1359.         @File LOTUS30\VGAS54CC.VBD                      @Out @Opt1115Dir\VGAS54CC.VBD
  1360.         @File LOTUS30\VGAS75CC.VBD                      @Out @Opt1115Dir\VGAS75CC.VBD
  1361.         @File LOTUS30\VGAS96CC.VBD                      @Out @Opt1115Dir\VGAS96CC.VBD
  1362.         @File LOTUS30\L13AVGA1.DLD                      @Out @Opt1115Dir\L13AVGA1.DLD
  1363.         @File LOTUS30\L13AVGA2.DLD                      @Out @Opt1115Dir\L13AVGA2.DLD
  1364.   @Endif
  1365.   @If (1200 [= @Option && 1202 [! @Option)
  1366.       @File WORD\SCREEN.VID                     @Out @Opt1200Dir\SCREEN.VID
  1367.   @Endif
  1368.     @If (1230 [= @Option && 1232 [! @Option)
  1369.       @File VGAUTIL\zclmode.exe             @Out \@Opt1230Dir\zclmode.exe
  1370.      
  1371. /*  @If (1230 [= @Option && 1232 [! @Option)
  1372.       @File VGAUTIL\CLMODE.EXE              @Out \@Opt1230Dir\CLMODE.EXE
  1373.       @File VGAUTIL\CLMODE.INI              @Out \@Opt1230Dir\CLMODE.INI
  1374.       @File VGAUTIL\CLMODE.BR               @Out \@Opt1230Dir\CLMODE.BR
  1375.       @File VGAUTIL\CLMODE.DA               @Out \@Opt1230Dir\CLMODE.DA
  1376.       @File VGAUTIL\CLMODE.DE               @Out \@Opt1230Dir\CLMODE.DE
  1377.       @File VGAUTIL\CLMODE.EN               @Out \@Opt1230Dir\CLMODE.EN
  1378.       @File VGAUTIL\CLMODE.ES               @Out \@Opt1230Dir\CLMODE.ES
  1379.       @File VGAUTIL\CLMODE.FI               @Out \@Opt1230Dir\CLMODE.FI
  1380.       @File VGAUTIL\CLMODE.FR               @Out \@Opt1230Dir\CLMODE.FR
  1381.       @File VGAUTIL\CLMODE.IT               @Out \@Opt1230Dir\CLMODE.IT
  1382.       @File VGAUTIL\CLMODE.LS               @Out \@Opt1230Dir\CLMODE.LS
  1383.       @File VGAUTIL\CLMODE.NL               @Out \@Opt1230Dir\CLMODE.NL
  1384.       @File VGAUTIL\CLMODE.NR               @Out \@Opt1230Dir\CLMODE.NR
  1385.       @File VGAUTIL\CLMODE.PR               @Out \@Opt1230Dir\CLMODE.PV
  1386.       @File VGAUTIL\CLMODE.SV               @Out \@Opt1230Dir\CLMODE.SV
  1387.       @File VGAUTIL\ADJUST.COM              @Out \@Opt1230Dir\ADJUST.COM
  1388.       @File VGAUTIL\TIMINGS.DAT             @Out \@Opt1230Dir\TIMINGS.DAT
  1389.       @File VGAUTIL\LANG.DAT                @Out \@Opt1230Dir\LANG.DAT
  1390.       @File VGAUTIL\IDCHIP.EXE              @Out \@Opt1230Dir\IDCHIP.EXE   
  1391. */
  1392.  
  1393.     @Display
  1394.      @Cls
  1395.  
  1396.      @MoveCStr(10,5,64+15,"ZCLMODE.EXE is a self-extracting zip file. Run ZCLMODE.EXE to obtain ")
  1397.      @MoveCStr(11,5,64+15,"CLMODE.EXE utilities. ")
  1398.  
  1399.      @Pause
  1400.      @EndDisplay  
  1401.   @Endif
  1402.   @If (1210 [= @Option && 1212 [! @Option)
  1403.       @File WORD\SCREEN.VID                     @Out @Opt1210Dir\SCREEN.VID
  1404.       @File WORD\SCREEN8.VID                     @Out @Opt1210Dir\SCREEN8.VID
  1405.   @Endif
  1406.   @If (1225 [= @Option && 1227 [! @Option)
  1407.       @File WP\CIRRUS.VRS                  @Out @Opt1225Dir\CIRRUS.VRS
  1408.   @Endif
  1409. /*  @Endif   */
  1410.   @If (1250 [= @Option && 1252 [! @Option)
  1411.           @File WORDSTAR\CL800.WGD              @Out \@Opt1250Dir\CL800.WGD
  1412.           @File WORDSTAR\CL1024.WGD             @Out \@Opt1250Dir\CL1024.WGD
  1413.           @File WORDSTAR\PREVIEW.OVR            @Out \@Opt1250Dir\PREVIEW.OVR
  1414.           @File WORDSTAR\PREVIEW.MSG            @Out \@Opt1250Dir\PREVIEW.MSG
  1415.           @File WORDSTAR\GRFPIX.EXE             @Out \@Opt1250Dir\GRFPIX.EXE
  1416.   @Endif
  1417. /** OEM RAMBIOS File Copy Begins ************************************
  1418.   @If (1890 [= @Option && 1892 [! @Option)
  1419.     @File RAMBIOS\VGA.EXE                   @Out @Opt1890Dir\VGA.EXE
  1420.   @Endif
  1421. ** OEM RAMBIOS File Copy Ends **************************************/
  1422. @EndDisk
  1423.  
  1424.  
  1425. @DefineDisk
  1426.   @LABEL  = "Software Disk 2 of 4"
  1427. @EndDisk
  1428. @DefineDisk
  1429.   @LABEL  = "Software Disk 3 of 4"
  1430. @EndDisk
  1431.  
  1432.  
  1433. /** OEM Disk Installation Start Begins ******************************
  1434. @DefineDisk
  1435. @LABEL  = "OEM DISPLAY DRIVERS"
  1436. ** OEM Disk Installation Start Ends  ********************************/
  1437.  
  1438. /** OEM1 File Copy Begins *******************************************
  1439.   @If (1910 [= @Option && 1912 [! @Option)
  1440.     @File OEM1\FILE1.EXT                        @Out @Opt1910Dir\FILE1.EXT
  1441.     @File OEM1\FILE2.EXT                        @Out @Opt1910Dir\FILE2.EXT
  1442.   @Endif
  1443. ** OEM1 File Copy Ends *********************************************/
  1444.  
  1445. /** OEM2 File Copy Begins *******************************************
  1446.   @If (1920 [= @Option && 1922 [! @Option)
  1447.     @File OEM2\FILE1.EXT                        @Out @Opt1920Dir\FILE1.EXT
  1448.     @File OEM2\FILE2.EXT                        @Out @Opt1920Dir\FILE2.EXT
  1449.   @Endif
  1450. ** OEM2 File Copy Ends *********************************************/
  1451.  
  1452. /** OEM3 File Copy Begins *******************************************
  1453.   @If (1930 [= @Option && 1932 [! @Option)
  1454.     @File OEM3\FILE1.EXT                        @Out @Opt1930Dir\FILE1.EXT
  1455.     @File OEM3\FILE2.EXT                        @Out @Opt1930Dir\FILE2.EXT
  1456.   @Endif
  1457. ** OEM3 File Copy Ends *********************************************/
  1458.  
  1459. /** OEM Disk Installation Finish Begins *****************************
  1460. @EndDisk
  1461. ** OEM Disk Installation Finish Ends *******************************/
  1462.  
  1463. /***********************************************************************/
  1464. /** OEM RAMBIOS AUTOEXEC.BAT File Modification Begins ********
  1465. @If (1890 [= @Option && 1892 [! @Option)
  1466.   @SetAutoexec
  1467.     @AskOverwrite
  1468.     @Verbatim "@Opt1890Dir\\RAMBIOS"
  1469.   @EndAutoexec
  1470. @Endif
  1471. ** OEM RAMBIOS AUTOEXEC.BAT File Modification Ends ***********/
  1472.  
  1473. /***********************************************************************/
  1474. @Finish
  1475.   @Cls
  1476.         The @NameLower installation is complete.
  1477. /** OEM RAMBIOS Reboot Message Begins ****************************
  1478.         @If (1890 [= @Option && 1892 [! @Option)
  1479.     Reboot the system to activate the RAMBIOS.
  1480.         @Endif
  1481. ** OEM RAMBIOS Reboot Message Ends ******************************/
  1482.   @If(1000 [= @Option)
  1483.       @move(2,0)
  1484.      You have successfully installed @namethisprogram for use with 
  1485.      AutoCAD Release 11. Before you can use @namethisprogram you 
  1486.      must run the FASTACAD.BAT file copied to your @OutDrive:@AcadDir 
  1487.      sub-directory and then reconfigure AutoCAD to use @namethisprogram.
  1488.      You may wish to add FASTACAD.BAT to your AutoCAD start-up file.
  1489.  
  1490.  
  1491.      To reconfigure AutoCAD to use @namethisprogram start AutoCAD and
  1492.      select the "TurboDLD ADI v4.2 ...." display option and then follow
  1493.      the on-screen directions.
  1494.  
  1495.     @move(21,0)
  1496.   @Goto DONE
  1497. @Endif
  1498. @If(2000 [= @Option)
  1499.       @move(2,0)
  1500.      You have successfully installed @namethisprogram for AutoCAD
  1501.      Release 12.  Before you can use @namethisprogram you must
  1502.      reconfigure AutoCAD. To reconfigure, start AutoCAD with "ACAD -r"
  1503.      and change the current display device. Choose @namethisprogram
  1504.      from the list of available display drivers and then follow the
  1505.      on-screen instructions. Refer to your @name
  1506.      Users Guide for detailed configuration instructions.
  1507.  
  1508.      If you have chosen to install @namethisprogram into a sub-directory
  1509.      other than ACAD\DRV, you must append the following path to your
  1510.      "SET ACADDRV=...." environment variable.  
  1511.              
  1512.                                  @OutDrive:@AcadDir
  1513.  
  1514.   @move(21,0)
  1515.   @Goto DONE
  1516. @EndIf
  1517.  
  1518. @If(3000 [= @Option)
  1519.       @move(2,0)
  1520.      You have successfully installed @namethisprogram for AutoCAD
  1521.      Release 13.  Before you can use @namethisprogram you must
  1522.      reconfigure AutoCAD. To reconfigure, start AutoCAD with the batch
  1523.      file provided by AutoCAD and change the current display device.
  1524.      Choose @namethisprogram from the list of
  1525.      available display drivers and then follow the on-screen
  1526.      instructions.  Refer to your @name
  1527.      Users Guide for detailed configuration instructions.
  1528.  
  1529.      If you have chosen to install @namethisprogram into a sub-directory
  1530.      other than ACAD13\DOS\DRV, you must append the following path to your
  1531.      "SET ACADDRV=...." environment variable.  
  1532.              
  1533.                                  @OutDrive:@AcadDir
  1534.  
  1535.   @move(21,0)
  1536.   @Goto DONE
  1537. @EndIf
  1538.  
  1539.  
  1540. @Goto DONE
  1541. NOINSTALLATION:
  1542.         The selected @NameLower were not installed.
  1543.         Please refer to the user manual for additional instructions.
  1544.  
  1545. DONE:
  1546.                                         @Pause
  1547.   @ChDrive @OutDrive
  1548.   @ChDir "\\"
  1549. @EndFinish
  1550.  
  1551. // end-of-file
  1552.  
  1553.